;Scale Block occurances, one or many.
;
;	AUTHOR: Henry C. Francis
;		425 N. Ashe St.
;		Southern Pines, NC 28387
;		All rights reserved without prejudice.
;
;	Copyright:	12-22-94
;	Edited:		12-22-94
;
(DEFUN C:BLKSCL ( / tht tset tsln cntr tent edtw)
(setq osmde (getvar"osmode"))
(setvar "osmode" 0)
(setq bscl (ureal 1 "" "\nScale Factor: " 1))
(setq blkol (ustr 0 "Block Name? " "Point" nil))
(setq getit (strcat "((-4 . \"<and\")(0 . \"INSERT\")(2 . \"" (eval blkol) "\")(-4 . \"and>\"))"))
(setq tset (ssget (read getit)))
(if tset
  (progn
    (setq tsln (sslength tset))
    (setq cntr 0)
  );progn
);if
(while
  (if (and (< cntr tsln) tset)
    (setq tent (entget (ssname tset cntr)))
  );if
  (progn
    (setq edtw (entget (cdar tent)))
;    (setq inscl (*(cdr(assoc 41 edtw))bscl))
    (setq inxyz (strcat(rtos(cadr(assoc 10 edtw)))","(rtos(caddr(assoc 10 edtw)))))
    (command ".scale" (cdar edtw) "" inxyz bscl)
    (setq cntr (1+ cntr))
  );progn
);while
(setvar "osmode" osmde)
);DEFUN
